home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tex / texte / stw9402 / astrosym / astrosym.mf < prev    next >
Encoding:
Text File  |  1994-09-22  |  2.3 KB  |  79 lines
  1. % ASTROSYM.MF  : AstroSym (Version 1.00, May 1, 1992) - file 2 of 7
  2. % Peter Schmitt                     eMail: a8131dal@awiuni11.bitnet
  3. % Institute of Mathematics, University of Vienna    Vienna, Austria
  4. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  5.  
  6. mode_setup;
  7. font_size = .4cm#;                  % scaling factor U = diameter of sun symbol
  8. font_identifier = "AstroSym";
  9. font_coding_scheme = "special purpose: astronomical symbols";
  10.  
  11. %%%%%%%%%%% 
  12. % font size ( U = diameter of sun symbol )
  13. %%%%%%%%%%%
  14.  
  15. U# := .4cm#;
  16. u# := (1/64)*U#; 
  17.  
  18. define_pixels(U,u);
  19.  
  20. input astrosym.mac;                         % macro file
  21.  
  22. %%%%%%%%%%%%%%%%%%%%%%%%%
  23. % version 1: calligraphic
  24. %%%%%%%%%%%%%%%%%%%%%%%%%
  25.  
  26. O := 0;                      % offset value for character position
  27.  
  28. P# := 4u#;                   % width of thick strokes
  29. p# := .5u#;                  % width of thin strokes
  30.  
  31. define_pixels(P,p);
  32. corrections;
  33.  
  34. input astrosym.com;          % symbols with common code definition
  35. input astrosym.cal;          % symbols with special code
  36.  
  37. %%%%%%%%%%%%%%%%%%%%%%%%%%%
  38. % version 2: uniform: thick
  39. %%%%%%%%%%%%%%%%%%%%%%%%%%%
  40.  
  41. O:=100;                      % offset value for character position
  42.  
  43. P# := 4u#;                   % widths of thick and thin strokes set equal 
  44. p# := 4u#;
  45. define_pixels (P,p);
  46. corrections;
  47. let arrow = Arrow;           % different arrow shape
  48. let Pen = PEN;                % all pens are equal
  49. let SPEN = PEN;
  50. let RPEN = PEN;
  51.  
  52. input astrosym.com;          % symbols with common code definition
  53. input astrosym.uni;          % symbols with special code
  54.  
  55. %%%%%%%%%%%%%%%%%%%%%%%%%%
  56. % version 2: uniform: thin
  57. %%%%%%%%%%%%%%%%%%%%%%%%%%
  58.  
  59. O:=200;                      % offset value value for character position
  60.  
  61. P# := 2u#;                   % widths of thick and thin strokes set equal 
  62. p# := 2u#;
  63. define_pixels (P,p);
  64. corrections;
  65.                              % repeated for the sake of completeness
  66. let arrow = Arrow;           % different arrow shape
  67. let Pen = PEN;               % all pens are equal
  68. let SPEN = PEN;
  69. let RPEN = PEN;
  70.  
  71. input astrosym.com;          % symbols with common code definition
  72. input astrosym.uni;          % symbols with special code
  73.  
  74. %%%%%%%%
  75. bye
  76.  
  77. %%%%%%%%%%%%%%%%%%%%%%%%%%
  78. %%% end of ASTROSYM.MF %%%
  79.